SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCMOVI_CAJA_I15]                
/*-------------------------------------------------------*/                
/*---Empresa              : OFISIS S.A.                --*/                
/*---Cliente              : OFISIS S.A.                --*/                
/*---Sistema              : Tesoreria                 --*/                
/*---M<dulo               : Empresa                    --*/                
/*---Programa             : Grabacion Cabecera         --*/                
/*---                       Movimiento Caja(Cheque Diferido)--*/                
/*---Script               : tcmovi_c.sql             --*/                
/*---Nombre SP            : SP_TCMOVI_CAJA_I15       --*/                
/*---Desarrollado por     : Aldo Escobar             --*/                
/*---Fecha Creaci<n       : 08/07/2011               --*/                
/*---Base Datos           : Microsoft Sql Server     --*/                
/*---Versi<n              : 9.0                      --*/                
/*---Invoca a SP          :                          --*/                
/*-------------------------------------------------------*/                          
/*-------------------------------------------------------*/                
/*---Comentarios                                       --*/                
/*---                                                  --*/                
/*---                                                  --*/                
/*-------------------------------------------------------*/                
/*-------------------------------------------------------*/                
/*---Drop Proc SP_TCMOVI_CAJA_I15                      --*/                
/*---Grant EXECUTE on SP_TCMOVI_CAJA_I15 to public         --*/                 
/*---SP_TCMOVI_CAJA_I15                                --*/                
/*-------------------------------------------------------*/                
 @ISCO_EMPR   TD_VC_002,         
 @ISCO_USUA_MODI  TD_VC_008_USUA,                
 @ISCO_CAJA   TD_VC_008,                 
 @ISAA_CAJA   TD_VC_004,                 
 @ISMM_CAJA   TD_VC_002,                 
 @ISTI_MOVI   TD_VC_001,                 
 @IDFE_OPER   TD_DT_001,                 
 @ISCO_TIPO_OPER  TD_VC_003,                 
 @ISCO_SUBR   TD_VC_003,                 
 @INFA_TIPO_CAMB  TD_NU_009_004,                 
 @INIM_MOVI   TD_NU_016_004,                 
 @ISTI_ENTI   TD_VC_001,                
 @ISCO_ENTI   TD_VC_020,                 
 @ISDE_NOMB_ORDE  TD_VC_100,                 
 @ISDE_OBSE   TD_VC_100,                                       
 @ISCO_ENTR_REND  TD_VC_004,                
 @ISCO_UNID_CNTB  TD_VC_003,                
 @IDFE_DIFE   TD_DT_001,                 
 @ISNU_SOLI       TD_VC_010,                       
 @ISCO_TIPO_DOCU TD_VC_003,                
 @ISNU_DOCU  TD_VC_020,                
 @ISNU_COMP_CAJA  TD_VC_008                
     
 as                
   Declare                           
   @VSTI_SITU     TD_VC_003,      
   @VSST_AUXI_0004 TD_VC_001,                  
   @VSST_AUXI_0002 TD_VC_001                                  
           
  Begin Tran SP_TCMOVI_CAJA_I15 --               
                
  /** inserta en la cabecera de caja **/                
            
If Rtrim(ISNULL(@ISCO_ENTR_REND,'')) = ''             
       Select @ISCO_ENTR_REND = NULL             
          ---Obtiene Flags para el Tipo de Operacion             
       Select  @VSST_AUXI_0004 = IsNull (ST_AUXI_0004,'N'),@VSST_AUXI_0002 = ST_AUXI_0002             
       From    TTTIPO_OPER             
       Where   CO_EMPR = @ISCO_EMPR             
       And CO_TIPO_OPER = @ISCO_TIPO_OPER             
           
      /***---Seteo TI_SITU  en base al Flag del Tipo de Operacion  ---***/              
      Select  @VSTI_SITU = ( SubString ('CAR', 1, PatIndex ('S',@VSST_AUXI_0004)*3) + SubString ('ACT', 1, PatIndex ('N',@VSST_AUXI_0004)*3) )             
                
       Insert Into TCMOVI_CAJA(CO_EMPR, CO_CAJA, AA_CAJA, MM_CAJA, TI_MOVI, NU_COMP_CAJA, FE_OPER,           
                             CO_TIPO_OPER, CO_SUBR, FA_TIPO_CAMB, IM_MOVI,  TI_ENTI, CO_ENTI,DE_ENTI,               
          DE_OBSE, ST_CONT, NU_PROC, TI_SITU, CO_ENTR_REND, CO_USUA_CREA,FE_USUA_CREA,             
          CO_USUA_MODI, FE_USUA_MODI, CO_UNID_CONC, FE_DIFE, NU_SOLI,CO_TIPO_DOCU, NU_DOCU )                
      Values ( @ISCO_EMPR, @ISCO_CAJA, @ISAA_CAJA, @ISMM_CAJA, @ISTI_MOVI,@ISNU_COMP_CAJA, @IDFE_OPER,             
               @ISCO_TIPO_OPER, @ISCO_SUBR, @INFA_TIPO_CAMB, @INIM_MOVI, @ISTI_ENTI,@ISCO_ENTI,          
         @ISDE_NOMB_ORDE,@ISDE_OBSE, 'N', NULL, @VSTI_SITU, @ISCO_ENTR_REND,         
   @ISCO_USUA_MODI, GETDATE(), @ISCO_USUA_MODI, GETDATE(), @ISCO_UNID_CNTB, @IDFE_DIFE, @ISNU_SOLI,         
               @ISCO_TIPO_DOCU, @ISNU_DOCU )                
                
    If @@error <> 0                
       Begin                
         Rollback tran                
    Return                
       End                    
                     
 Commit Tran                
                
RETURN                
                
/*---------------------------------- Fin ---------------------------------*/ 
GO
